CONST name=value
CONST COUNT=10, LISTSIZE=COUNT*SIZEOF_LONG, PI=3.1415926
ENUM name[=value]
ENUM YES=-1,NO,MAYBE // YES=-1,NO=0,MAYBE=1 ENUM WHAT,IS,YOUR,NAME, // WHAT=0,IS=1,YOUR=2,NAME=3 MY=10,NAME,IS,PRINCE // MY=10,NAME=11,IS=12,PRINCE=13
SET name[=value]
SET VERTICAL, // VERTICAL=1 SMOOTH, // SMOOTH=2 DIRTY // DIRTY=4 SET CLEAN=5, // CLEAN=32 FAKE, // FAKE=64, SLOW=10 // SLOW=1024
FLAG n_ame[=value]
FLAG CAR_Fast, // CARF_Fast=1, CARB_Fast=0 CAR_Auto, // CARF_Auto=2, CARB_Auto=1 CAR_Comfort, // CARF_Comfort=4, CARB_Comfort=2 CAR_Expensive // CARF_Expensive=8, CARB_Expensive=3
TRUE = -1 FALSE = 0 NIL = 0 // for pointers PI = 3.141592653589 OLDFILE = 1005 // for file opening NEWFILE = 1006 // for file opening
OSVERSION = requied version of operation system (see: Options) STRLEN = length of last used string PrintF('Hello\n') len:=STRLEN // len contains number 6
SIZEOF_BYTE = 1 SIZEOF_UBYTE = 1 SIZEOF_WORD = 2 SIZEOF_UWORD = 2 SIZEOF_LONG = 4 SIZEOF_ULONG = 4 SIZEOF_FLOAT = 4 SIZEOF_DOUBLE = 8 SIZEOF_PTR = 4 SIZEOF_BOOL = 2 SIZEOF_VOID = 4 SIZEOF_HALF = 2 // this equals to WORD (for PPC machines) SIZEOF_UHALF = 2 // this equals to UWORD (for PPC machines) SIZEOF_DLONG = 8 // this is only for 64bit PPC machines SIZEOF_UDLONG = 8 // this is only for 64bit PPC machines